#!/usr/bin/perl

print "redo\n";
$i=0;
while($i<5) {
	++$i;
	if($i==2 || $i==4) {
		redo;
	}
	print "$i\n";
}

print "next\n";
$i=0;
while($i<5) {
	++$i;
	if($i==2 || $i==4) {
		next;
	}
	print "$i\n";
}



